home *** CD-ROM | disk | FTP | other *** search
/ Ancient Asian Sex Secrets / Ancient Asian Sex Secrets.iso / mac / EROSPROM.Dxr / 00229.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  2.4 KB  |  97 lines
  1. on m4
  2.   global md1, rantime, mp, s4, e4
  3.   set the cursor of sprite 4 to 4
  4.   set rantime to the ticks
  5.   set mp to 4
  6.   if the castNum of sprite 4 = e4 then
  7.     set the castNum of sprite 4 to s4
  8.     set md1 to the duration of cast s4 - 3
  9.   else
  10.     set md1 to the duration of cast (the castNum of sprite 4 + 1) - 3
  11.     set the castNum of sprite 4 to the castNum of sprite 4 + 1
  12.   end if
  13.   set the cursor of sprite 4 to [234, 235]
  14. end
  15.  
  16. on m5
  17.   global md2, rantime, mp, s5, e5
  18.   set the cursor of sprite 5 to 4
  19.   set rantime to the ticks
  20.   set mp to 5
  21.   if the castNum of sprite 5 = e5 then
  22.     set the castNum of sprite 5 to s5
  23.     set md2 to the duration of cast s5 - 3
  24.   else
  25.     set md2 to the duration of cast (the castNum of sprite 5 + 1) - 3
  26.     set the castNum of sprite 5 to the castNum of sprite 5 + 1
  27.   end if
  28.   set the cursor of sprite 5 to [234, 235]
  29. end
  30.  
  31. on movOff
  32.   global movpc
  33.   if movpc = 2 then
  34.     set the movieRate of sprite 2 to 0
  35.     set movpc to 0
  36.     exit
  37.   end if
  38.   if movpc = 3 then
  39.     set the movieRate of sprite 2 to 0
  40.     set the movieRate of sprite 13 to 0
  41.     set the movieRate of sprite 18 to 0
  42.     set the movieRate of sprite 21 to 0
  43.     set movpc to 0
  44.     exit
  45.   end if
  46.   if movpc = 4 then
  47.     set the movieRate of sprite 4 to 0
  48.     set movpc to 0
  49.     exit
  50.   end if
  51.   if movpc = 12 then
  52.     set the movieRate of sprite 6 to 0
  53.     set movpc to 0
  54.     exit
  55.   end if
  56.   if movpc = 13 then
  57.     set the movieRate of sprite 7 to 0
  58.     set movpc to 0
  59.     exit
  60.   end if
  61.   if movpc = 5 then
  62.     set the movieRate of sprite 4 to 0
  63.     set the movieRate of sprite 5 to 0
  64.     set movpc to 0
  65.     exit
  66.   end if
  67.   if movpc = 6 then
  68.     set the movieRate of sprite 4 to 0
  69.     set the movieRate of sprite 5 to 0
  70.     set the movieRate of sprite 6 to 0
  71.     set movpc to 0
  72.     exit
  73.   end if
  74.   if movpc = 7 then
  75.     set the movieRate of sprite 4 to 0
  76.     set the movieRate of sprite 5 to 0
  77.     set the movieRate of sprite 6 to 0
  78.     set the movieRate of sprite 7 to 0
  79.   end if
  80.   if movpc = 8 then
  81.     set the movieRate of sprite 4 to 0
  82.     set the movieRate of sprite 5 to 0
  83.     set the movieRate of sprite 6 to 0
  84.     set the movieRate of sprite 7 to 0
  85.     set the movieRate of sprite 8 to 0
  86.   end if
  87.   if movpc = 9 then
  88.     set the movieRate of sprite 4 to 0
  89.     set the movieRate of sprite 5 to 0
  90.     set the movieRate of sprite 6 to 0
  91.     set the movieRate of sprite 7 to 0
  92.     set the movieRate of sprite 8 to 0
  93.     set the movieRate of sprite 9 to 0
  94.   end if
  95.   set movpc to 0
  96. end
  97.